home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / jtdial21.arc / JTDIAL.SC < prev    next >
Encoding:
Text File  |  1989-05-20  |  902 b   |  25 lines
  1. ;************************************************************************
  2. ; System : JTDial
  3. ; File Name : JtDial.sc
  4. ; By : John T Loper Jr.
  5. ; Last modified 05/17/89
  6. ; Copyright (c) 1989  John Loper Consulting
  7. ;                     775 E. Green Street
  8. ;                     Allentown, Pa. 18103
  9. ;                     (215)776-1927
  10. ; Released to the Public Domain
  11. ;*************************************************************************
  12.  
  13. setkey -25 play "JTDial"         ; ALT P
  14. If IsTable("jtsetup") then
  15.    READLIB "JTDLIB" JTDIAL, MESAGE, GETNUMBER, QUITPHONE
  16.    GetNumber()
  17.    Release Procs JTDial, GetNumber, QuitPhone, Mesage
  18.    setprinter "lpt1"   ; Change to your Printer Port if not correct
  19.                        ; this is necessary to reset the port used for
  20.                        ; the printer on your system
  21. Else
  22.    Readlib "JTDLib" MakeSetup
  23.    MakeSetup()
  24. endif
  25.